#!/usr/bin/perl

use Modern::Perl;
use File::Slurp;
use Log::Log4perl qw( :easy );

use lib './lib';

require AEF::AEFDump;
require AEF::AEFReader;

Log::Log4perl->easy_init($INFO);

my $aefFile = shift;

if(!($aefFile))
{
	print "Usage $0 application.aef\n";
	exit(1);
}

my $processor = AEF::AEFDump->new();

my $file = $aefFile;
my $data = read_file($file, binmode => ':raw');

my $aef = AEF::AEFReader->new(processor => $processor);
$aef->ReadAEF($data);




